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ZTITLE Ree § character case translation rules’ 


MODULE DOCAS 
IDENT = 'V04=000' | 
XBLISS320 | 
ADDRESSING_ MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


d= 
BEGIN 


SRR REE AEEEE RRR REAAAAA ERRATA TEER TE TTA ATTA ATE ee eee 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND C 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bie cone AND WIT 
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iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ibn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
LRA EEE EEE AEA 
' 

i¢¢ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: Processes .UPPER CASE and .LOWER CASE commands, and 
other case translation requests. 
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ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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! TABLE OF CONTENTS: 


FORWARD ROUTINE 
SETCAS : NOVALUE; 


INCLUDE FILES: 

RY 'NXPORT:XPORT’; 
RE "REQ:RNODEF'; 
S 
R 


RPLUS %THEN 
Y *REQ:DPLLIB'; 


SE 
RARY ‘REQ:DSRLIB'; 


LIBRA 
REQUI 
“IF D 
LIBRA 
ZELS 
LIB 
iF I 

! 

i MACROS: 

' 

EQUATED SYMBOLS: 

i] 

OWN STORAGE: 

i 

. EXTERNAL REFERENCES: 


EXTERNAL 
GCA : 
SCA : 


iEosto-t9ge 00:22:18 yc, 


XPORT Library 
RUNOF F variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


li fe903¢ Ys -Oo74¢ 
SRCJDOCASE.BLI; 
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GLOBAL ROUTINE DOCASE (HANDLER_CODE) : NOVALUE = 
' 


1+ 
FUNCTIONAL DESCRIPTION: 


Establishes the default case translation rules until they 
are changed. 


FORMAL PARAMETERS: 

HANDLER_CODE indicates the command that is to be processed. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: 


GCA_CASE is set to remember the case set by the most 
recent .UPPER CASE or .LOWER CASE command. 
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0 ROUTINE VALUE: 
8 COMPLETION CODES: None 
8 ! SIDE EFFECTS: None 
0 - 
0 
0 BEGIN 
0 
0 IF 
02 -HANDLER_CODE EQL H_UPPER_CASE 
0 HEN 
02 BEGIN 
0 GCA_CASE = LEAVE_CASE; 
0 SETCAS (LEAVE_CASE); 
8 END 
8 EGIN 
GCA_CASE = FORCE_LOWER; 

0 SETCAS (FORCE_LOQER); 

: 0 END; 

0 8s END; 'End of DOCASE | 

i 


TITLE et ee: Setup character case translation rules 
DENT \v04-000\ 


-EXTRN GCA, SCA 
-PSECT SCODES,NOWRT,2 


00 000 -ENTRY DOCASE, Save nothing 3 ose6 

000000cD —s BF 04 aC cHPL HANDLER. CODE , #205 > 0255 
000000006 aGCA+128 : 0258 

-(SP) > 0259 
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RUNOFF ..SRCJDOCASE .BL1; 


; Routine Size: 


SCODES + 0000 


3 


DOCA AX-11 iss-32 V4.0-74 P 
ibaa tm 9 Bliss-32 0 age 6 


21 
75 RUNOFF .SRCJDOCASE.BLI; (5) 


Level Declarations Sep-19 


K 2 
character case translation rules 16-Sep-1984 1 
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GLOBAL ROUTINE SETCAS (TRANSLATION) : NOVALUE = ! 


1+ 


FUNCTIONAL DESCRIPTION: | 
This routine sets up case rules. | 

i FORMAL PARAMETERS: 
TRANSLATION can have one of the values defined in SETCAS.REQ. | 
i IMPLICIT INPUTS: | 
| 
| 


' 

1 

' 

' 

' 

4 

' 

' 

: SCA_WORD_SET: 
; If Being called as a result of a command, then SCA_WORD_SET 

! will be FALSE, so case translation will be established 

, for everything. If not being called as a result of a commard, 
: case rules for the current word take precedence over the 

: default case translation. for example, erty the normal 

' flag character definitions, and the capitalize lag enabled, 
; the sequence “*“<lower generates ‘LOWER’, as should <*“lower. 
i The latter situation is what the SCA_WORD_SET test catches. 

; In any case, the requested case translation takes effect as 
soon as a new word is started, or SCA_WORD_SET becomes false. 
i] 

' 

' 

' 

' 

' 

' 

' 


i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
i COMPLETION CODES: None 


i SIDE EFFECTS: None 
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CFORCE_UPPER] : 
saree all letters to upper case. 
IF NOT .SCA_WORD_SET 
THEN = | 
; cece rules take effect immediately. 
9 SCA_WRD_FC_LT = ZC°A* = &C‘'a'; 
SCA-WRD-FC"UT = 0; 
1 SCA-WRD-OC-LT = ZC°A’ = XC'a’; | 
§ SCA_WRD_OC_UT = 0; 
4 SCA_MNWRD_FC_LT = ZDECIMAL'192" = ZDECIMAL'224'; 
5 SCAMNWRD-FC"UT = 0; 
SCAMNWRD-OC"LT = ZGECIMAL'192" = ZDECIMAL'224°; 
7 SCAMNWRD-OC~UT = 0; 
8 END; 
r) 32 
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0 
E.BLI; (5 


| 
| 
H of 0383 CLEAVE_CASE) : : 
3 8 4 'Don't change case at all. ‘ 
3; ¢9 5 EGIN : 
: 260 § 3 
: 261 0 IF NOT .SCA_WORD_SET | : 
: 26 9 'Case rules take effect immediately. : 
; 264 90 4 IN : 
: 265 0391 4 SCALMRDLECLT = 0: | ; 
; 266 O36 4 SCA_WRD_FC_UT = 0; 
; 267 0393 4 SCA_WRD_OC_LT = 0; 
; 268 94 4 SCA_WRD_OC_UT = 0; 
; 269 95 4 
; 270 0396 4 SCA_MNWRD_FC_LT = 0; 
3; 7] 0397 4 SCA_MNWRD-FC"UT = 0; 
; si¢ 0398 4 SCA_MNWRD_OC_LT = 0; 
; ef 0399 4 SCA-MNWRD-OC_UT = 0; 
; 274 0400 : END; 
: $3 0401 
; 276 Bete 3 SCA_FCBE_LT = 0; 
; 77 0403 3 SCA_FCBE_UT = 0; 
3 sf8 0404 : SCA_OCBE_LT = 0; 
3; 279 0405 SCA_OCBE_UT = 0; 
3 $50 0406 3 SCA_FC_LT = 0; 
; 281 0407 3 SCA_FC_UT = 0; 
: 38e 0408 ; SCA-OC_Li = 0; 
:; 0409 SCA_OC_UT = 0; 
; «6284 0410 3 
> «285 0411 3 SCA_MNFCBE_LT = 0; 
3 286 0412 3 SCA_MNFCBE_UT = 0; 
: 287 0413 SCA_MNOCBE_LT = 0; 
; 288 0414 3 SCA_MNOCBE_UT = 0; 
; 289 0415 SCA_MNFC_LT = 0; 
; 290 0416 SCA_MNFC_UT = 0; 
; ev 0417 SCA_MNOC_LT = 0; 
; 292 0418 3 SCA_MNOC_UT = 0; 
; 0419 END; 
: 294 0420 
; 295 0421 CFIRST_CAPS) : 
: 296 04 § Cop itet fe words. 
; 297 04 BEGIN 
3 $38 0424 LOCAL 
: 299 0425 OTHER_CASE_MN, ! Multinational char. set flag 
; 00 0457 OTHER~ CASE: 
: 02 0428 IF .GCA_CASE EQL FORCE_LOWER 
: 0 8 9 THEN 
: 304 430 4 BEGIN — 
; 305 0431 4 ‘For files all in upper case, force remaining 
; 306 oR 4 ‘characters to lower case. 
: 07 ok 4 OTHER_CASE = 2C‘*a’ = 2C'A'; 
: 308 0434 4 OTHER-CASE_MN = XDECIMAL'224* = ZDECIMAL'192' | 
; 309 435 4 END 
; 310 4 § 3 ELSE 
3; 311 4 4 BEGIN — . 
: \¢ 438 4 'For files from terminals having both upper and 
s 51 0439 4 ‘Lower case, leave remaining characters alone. | 
| 
| 
SR ee a a as ae Ne a el i ee Bk I eS Dee Pee eas & 
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: 314 440 4 OTHER_CASE = 0; 

; 315 441 4 OTHER-CASE_MN = 0 

: 316 44 ND; | 
: 317 044 

; 318 0444 IF NOT .SCA_WORD_SET 
; 319 0445 THEN 

; 0 +73 !Case rules take effect lunostetety. | 
: 321 447 & BEGIN 
: é 448 4 SCA_WRD_Fu_.T = ZC'A' = %C'a'; 
; 0449 4 SCAWRD-FC-UT = 0; 
; 324 0450 4 SCA-WRD-OC-LT = 0; | 
: 3g O43] 6 SCA-WRD-OC_UT = .OTHER_CASE; | 
: 327 0458 SCA_MNWRD_FC_LT = XDECIMAL'192" = XDECIMAL'224'; 

; 328 0454 4 SCAMNWRD-FC-UT = 0; 

; 329 0455 4 SCA-MNWRD-OC"LT = 0; 

; 330 0456 4 SCA-MNWRD-OC_UT = .OTHER_CASE_MN 

; 331 0457 END; 

; 332 0458 | 
; 333 0459 SCA_FCBE_LT = XC'A' = XC'a’; 

; 334 0460 SCA-FCBE_UT = 0; 

; 335 0461 SCAOCBE_LT = 0; 

; 336 046 SCATOCBE-UT = ,OTHER_CASE; 

: 337 0463 3 SCATFC_LT = XC'A' = &C'a': 

; 338 0464 3 SCA~FC-UT = 0; 

; 339 0465 3 SCATOC“LT = 0; 

: 340 0466 3 SCATOC"UT = .OTHER_CASE; 

; 341 0467 3 

; 342 0468 3 SCA_MNFCBE_LT = XDECIMAL'192° = XDECIMAL'224'; 

; 343 0469 3 SCA_MNFCBE_UT = 0; 

> 344 0470 3 SCATMNOCBE-LT = 0: 

; 345 0471 3 SCATMNOCBE-UT = .OTHER_CASE_MN: 

: 346 0472 3 SCA-MNFC_LT = XDECIMAL"192°~= ZDECIMAL‘224'; 

> 347 047 SCA-MNFC-UT = 0; 

; 348 047% SCALHNOC-LT = 0; 

; 349 0475 SCA-MNOC_UT = .OTHER_CASE_MN 

; 350 0476 2 END; 

; 351 0477 : 

; 35¢ 0478 CONE_CAP : 

3 3 0479 gcapitalize first word, all other letters to lower case. 

; 354 0480 BEGIN 

$ 32 0481 'Case translation takes effect immediately. 

; 356 048 SCA_WRD_FC_LT = XC°A' = | 
: 357 O48 SCATWRD"OC"LT = 0; 
: 358 484 SCA_WRD-FC-UT = 0; 

: 359 0485 SCA-WRD-OC-UT = %C'a" = XC'A'; 

; 360 0486 | 
: 361 0487 SCA_FC_LT = 0; 

; 6¢ 0488 SCA_OC“LT = 0; 

; 36 489 SCA-FC-UT = 2C'a' - XC'A'; 

> 364 490 SCATOC“UT = %C'a® = XC'A': 

: 365 491 SCA-FCBE_LT = 0; 
; 66 49 SCAFCBE~UT = ZC'a' = XC'A' 

: 36 49 SCA-OCBE-LT = 0; 
; 68 0494 SCATOCBE7UT = X¢'a' = XC°A'; 

: 370 04 SCA_MNWRD_FC_LT = XDECIMAL'192" = XDECIMAL'224°; 
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3; Run Time: 00:14.0 
; Elapsed Time: 00:28.9 
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v04- Module Level ealaraetnen 12-808 - 1 3be 90:08:58 RUNOFF .SRCJDOCASE.BLI;1 a 35 
F4 A D 130 MOVL #32, SCA+4 ; 0490 
10 ag g b0 14 MOVL Ate SCAt52 : 0492 | g 1 
18 OA 6 14 CLROQ SCA+4 ; 049 oi 
14 Ag § Dd 14 MOVL # $° SCA+36 3 0494 ; 
34 sC«<(<AM CE 0014 MNEGL #32, SCA+68 : 049 a 44 
30 A . 1 CLRL he 3 049 5, 4 
38 A2 2 D 001 MOVQ #32, SCA+72 ; 0499 24 
28 A2 7C Q01 14$ CLRQ SCA+56 ; 0501 
30 A D 4 A MOVL #32, SCA+48 3; 0503 gs 
4 A D 125 MOVL #32, SCA+5S2 3 0504 4 
40 A 0 b 016 MOVL #32, gCAr80 : 0506 ; 
48 Ag ‘ $198 CLRQ 3gate : 3202 3 
4G Ah2 20 00 0016 MOVL #32, SCA+84 ; 0508 3 | 
04 0016D RET + 0512 A 
; Routine Size: 366 bytes, Routine Base: S$CODE$ + 0028 : 
: 387 0513 1 Bg 
; 388 0514 1 END 'End of module gs 4 
: 389 0515 0 ELUDOM a 
SS 
3 4 
g 4 
F- 4 
; PSECT SUMMARY | ; 
: Name Bytes Attributes ; 
;  SCODES 406 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 
>. | 
Fr 
3 | 
3 Library Statistics : 
Fite er ed a eee Symbols -------- Pages Processing ee 
3 File Total Loaded Percent Mapped Time ‘ 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 0 0 252 00:00. 4 
; 7$255$DUA28: CRUNOFF ..SRCIDSRLIB.L32;1 1248 38 86 00:00. | : 
: 
| a 
| 
tre 2 
; COMMAND QUALIFIERS | = 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DOCASE/OBJ=OBJ$:DOCASE MSRC$:DOCASE/UPDATE=(ENH$:DOCASE) | 3 : 

3; Size: 406 code + 0 data bytes : 


3 
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; Lines/CPU Min: ¢e 08 
3 Lexemes/CPU-Min: 2166 
; poner? Used: 97 pages 
; Compilation Complete 
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